Beschrijving
Opent een opgegeven bestandsnaam en geeft een TextStream-object terug dat u kunt gebruiken om uit het bestand te lezen, ernaartoe te schrijven of iets aan het bestand toe te voegen.
Syntaxis
object.OpenAsTextStream([iomodus, [indeling]])
De syntaxis van de methode OpenAsTextStream bestaat uit de volgende onderdelen:
| Onderdeel | Beschrijving |
|---|---|
| Object | Vereist. Is altijd de naam van een File-object. |
| iomodus | Optioneel. Geeft de invoer-/uitvoermodus aan. Kan een van de volgende constanten zijn: ForReading, ForWriting of ForAppending. |
| indeling | Optioneel. Een van de drie Tristate-waarden die worden gebruikt om de indeling van een geopend bestand aan te geven. Als dit argument is weggelaten, wordt het bestand als ASCII geopend. |
Instellingen
Het argument iomodus kan de volgende waarden bevatten:
| Constante | Waarde | Beschrijving |
|---|---|---|
| ForReading | 1 | Opent een bestand alleen om te lezen. U kunt geen gegevens naar het bestand wegschrijven. |
| ForWriting | 2 | Opent een bestand om gegevens naartoe te schrijven. Als een bestand met dezelfde naam bestaat, wordt de vorige inhoud overschreven. |
| ForAppending | 8 | Opent een bestand en schrijft tot aan het einde van het bestand. |
Het argument indeling kan de volgende waarden bevatten:
| Constante | Waarde | Beschrijving |
|---|---|---|
| TristateUseDefault | û2 | Opent het bestand met de systeemstandaard. |
| TristateTrue | û1 | Opent het bestand als Unicode. |
| TristateFalse | 0 | Opent het bestand als ASCII. |
Notities
De methode OpenAsTextStream biedt dezelfde functionaliteit als de methode OpenTextFile van het FileSystemObject. Bovendien kunt u de methode OpenAsTextStream ook gebruiken om gegevens naar een bestand te schrijven.
De volgende code illustreert het gebruik van de methode OpenAsTextStream:
Sub TextStreamTest
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile "test1.txt" 'Maakt een bestand
Set f = fs.GetFile("test1.txt")
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.Write "Hallo allemaal"
ts.Close
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
s = ts.ReadLine
MsgBox s
ts.Close
End Sub